home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Svd Messageboard Arcive / ephemery / data / MBPREP.ZIP / DIFFINC.PL < prev    next >
Encoding:
Text File  |  1999-01-16  |  605 b   |  18 lines
  1. $IN= $ARGV[0];
  2. open(IN) || die "err $IN:$!";
  3. $i=0; while (<IN>) { s/\r\n/\n/g; $xa{$_} = 1+$i; $ya[$i] = $_; $i++; } close IN;
  4. $IN= $ARGV[1];
  5. open(IN) || die "err $IN:$!";    #$xb{$_} = 1+$i;
  6. $i=0; while (<IN>) { s/\r\n/\n/g;                 $yb[$i] = $_; $i++; } close IN;
  7.  
  8. for ($ia=$ib=0; $ib<=$#yb && $ia<=$#ya; $ib++) {
  9.      $n = $xa{ $yb[$ib] };
  10.      if ($n) {  #it is 1 more!
  11.         for ( ;$ia<$n;$ia++) { print "a:".$ya[$ia]; }
  12.       } else {
  13.         print "B:".$yb[$ib];
  14.       }
  15. }
  16. for ( ;$ib<=$#yb;$ib++) { print "B:".$yb[$ib]; }
  17. for ( ;$ia<=$#ya;$ia++) { print "a:".$ya[$ia]; }
  18.